home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_28_(10-1984).d64 / disk tricks 1 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  933b  |  21 lines
  1. 100 SYS65517:IFPEEK(781)=22THENMT$="":GOTO500
  2. 110 MT$=""
  3. 500 PRINT"[147]"MT$"     WARNING"
  4. 501 PRINT" THIS PROGRAM WILL":PRINT" CHANGE THE DISK"
  5. 502 PRINT" NAME. PLEASE MAKE":PRINT" SURE THAT THE"
  6. 503 PRINT" GAZETTE DISK[146] IS NOT":PRINT" IN THE DRIVE."
  7. 998 FORI=1TO6000:NEXT
  8. 999 REM END: REM PROGRAM 1: CHANGE DISK NAME
  9. 1000 INPUT "[147]NEW DISK NAME";DN$
  10. 1010 IF LEN(DN$)<16 THEN DN$=DN$+CHR$(160):GOTO 1010:REM STRETCH TO 16 CHARS
  11. 1020 IF LEN(DN$) > 16 THEN DN$=LEFT$(DN$,16): REM SHORTEN NAME TO 16 CHARACTERS
  12. 1030 OPEN 15,8,15,"I": REM OPEN DISK COMMAND CHANNEL
  13. 1040 OPEN 8,8,8,"#": REM OPEN DIRECT ACCESS CHANNEL
  14. 1050 PRINT#15, "U1:"8;0;18;0: REM READ TRACK 18, SECTOR 0 INTO CHANNEL 8 BUFFER
  15. 1060 PRINT#15, "B-P:"8;144: REM MOVE BUFFER-POINTER TO FIRST BYTE OF DISK NAME
  16. 1070 PRINT#8, DN$;: REM PUT NEW NAME IN CHANNEL 8 BUFFER, REPLACING OLD NAME
  17. 1080 PRINT#15,"U2:"8;0;18;0:REM WRITE BUFFER WITH NAME CHANGED
  18. 1090 CLOSE 8: REM CLOSE DIRECT ACCESS CHANNEL
  19. 1100 CLOSE15: REM CLOSE COMMAND CHANNEL
  20. 1110 REM GOTO 100: REM RESTART DISPLAY T&S PROGRAM IF APPENDED
  21.